home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / EX-IV-1.TRA < prev    next >
Text File  |  1990-01-25  |  1KB  |  45 lines
  1. 0001          0
  2.    I          0 Index register
  3.    J          0
  4.               5 Initialize index register 4 to 5
  5. BGIN     RD   A Read first 5 values
  6.         4RD   A Read second 5 values
  7. INIT     LDZERO
  8.          ST   I Set I=0
  9.          ST   F Set flag to off
  10.          LD ONE
  11.          ST   J Set J=1
  12. LOOP    2LD   A Load A(I)
  13.         3SU   A           - A(I+1)
  14.          BNINCR If <
  15.          BZINCR      or = skip exchange
  16.         2LD   A Load A(I)
  17.          ST   T Store at temporary location
  18.         3LD   A Load A(I+1)
  19.         2ST   A Store at A(I)
  20.          LD   T Get temporary value
  21.         3ST   A Store in A(I+1)
  22.          LD ONE
  23.          ST   F Set flag to on
  24. INCR     LD   J
  25.          AD ONE
  26.          ST   J Increment J (Actually I+1)
  27.          LD   I
  28.          AD ONE
  29.          ST   I Increment I
  30.          SUNINE Done with pass?
  31.          BNLOOP If not repeat loop
  32.          LD   F Any exchanges?
  33.          BZPRNT If not, print
  34.          BUINIT Do another pass
  35. PRNT     PC   A Print first 5 values
  36.         4PC   A Print second 5 values
  37.          HT*    Stop
  38.    F          0
  39.  ONE          1
  40.    T          0
  41. NINE          9
  42. ZERO          0
  43.    A          0
  44.          ENBGIN
  45.